home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 2.iso / heat_tst / eupcnv.cfg < prev    next >
Text File  |  1991-10-19  |  2KB  |  104 lines

  1. /*********************************************************************
  2. /*
  3. /*    HE386 のバグの尻拭い…
  4. /*
  5. /*    %O255 が %O127 となってしまうのを元に戻す
  6. /*
  7. /*    全データをサーチするのはおっとろしく時間がかかる!。
  8. /*    でも,たいてい%Oは先頭にしかないので,1小節変換したら中断すれば
  9. /*    いい
  10. /*
  11. /*    0xFC,TRK,ST,ST, 1, 127 ⇒ 0xFC,TRK,ST,ST, 1,255
  12. /*
  13.  
  14.  
  15. main {
  16.     wind_init()
  17.     filename = "";
  18.     file_select("filename","出力ポートコンバート","-1", "", "*.eup",0)
  19.     if ( VAL ! 0 )
  20.     {    return    (-1)
  21.     }
  22.     fopen( filename,"r+")
  23.  
  24.     PATH = VAL;
  25.     if ( PATH < 0 )
  26.     {    wind_str_color(C_RED)
  27.         echo("\n\tFILE OPEN ERROR!!\n")
  28.         wait(5)
  29.         wind_close()
  30.         return    (-1)
  31.     }
  32.     echo("\n")
  33.  
  34.     fgets("TITLE",33,PATH)
  35.  
  36.     fseek(PATH,1762,0)
  37.     fgets("FM",9,PATH)
  38.  
  39.     fseek(PATH,1770,0)
  40.     fgets("PCM",8,PATH)
  41.  
  42.     tabset(4)
  43.     echo("\tFILE  : \(filename)\n")
  44.     echo("\tTITLE : \(TITLE)\n")
  45.     echo("\tFM    : \(FM).fmb\n")
  46.     echo("\tPCM   : \(PCM).pmb\n")
  47.  
  48.     CNV = 0;
  49.     MEAS = 1;
  50.     ADR = 2054;
  51.     fseek(PATH,ADR,0)
  52.     bk = 0;
  53.     while ( bk = 0 )
  54.     {    fgetc("C",PATH)
  55.         inc(ADR)
  56.         if ( C = "252" )    /* 0xFC */
  57.         {    fgetc("DMY",PATH)    /* TRK        */
  58.             fgetc("DMY",PATH)    /* STEPTIME    */
  59.             fgetc("DMY",PATH)    /* STEPTIME    */
  60.             fgetc("C",PATH)
  61.             inc(ADR)
  62.             inc(ADR)
  63.             inc(ADR)
  64.             inc(ADR)
  65.             if ( C = "1" )
  66.             {    /* ポート変更    */
  67.                 fgetc("DAT",PATH)
  68.                 if ( DAT = "127" )
  69.                 {    fseek(PATH,"\(ADR)",0)
  70.                     fputs("\xFF",PATH)
  71.                     valform("STR","%06X",ADR)
  72.                     fseek(PATH,"\(ADR)",0)
  73.                     inc(CNV)
  74.                     menu_yes_no( 100,100,C_CYAN, "$\(STR) : \(CNV)個 変換 -- 続けますか?")
  75.                     if ( VAL > 0 )
  76.                     {    bk = 0;
  77.                     } else
  78.                     {    bk = 1;
  79.                     }
  80.                 } else
  81.                 {    inc(ADR)
  82.                 }
  83.             }
  84.         } else if ( C = "242" ) /* 小節マーカ    */
  85.         {    menu_yes_no( 100,100,C_CYAN, "\(MEAS) 小節 : 続けますか?")
  86.             if ( VAL > 0 )
  87.             {    bk = 0;
  88.             } else
  89.             {    bk = 1;
  90.             }
  91.             inc(MEAS)
  92.         } else if ( C = "254" ) /* 終端マーカ    */
  93.         {    bk = 1;
  94.         }
  95.     }
  96.     fclose(PATH)
  97.  
  98.     echo("\n**** 終了しました。*****\n")
  99.     wait(5)
  100.     wind_close()
  101.     return (0)
  102. }
  103.  
  104.